home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / INSURE.SAB < prev    next >
Text File  |  1991-09-27  |  571b  |  23 lines
  1. label start
  2. cls
  3. set err mes off
  4. set mes off
  5. SET V OPN TO ""
  6. DISPLAY CP.DIS
  7. WRITE "INSURE.SAB" AT 2,36
  8. WRITE "Insurance Processing" at 5,30
  9. write +
  10. "Enter Any Portion Of Policy Number, ADD.CODE, Insurance Company Or <ESC>" +
  11. at 15,5
  12. write "<----" at 17,53
  13. fil opn usi "---->  " at 17,20
  14.   if opn = "" then ; goto opx ; endif
  15.   edit using insur where insnr con .opn and prime exists
  16.   edit using insur where add.code contains .opn and prime exists
  17.   edit using insur where insco contains .opn and prime exists
  18.   goto start
  19. label opx
  20.   cls
  21.   return
  22.  
  23.